Option Explicit
Sub P_Sample023()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\" & "Tmp1"	'NƧ
    If myFso.FolderExists(FolderSpec:=myName) Then
        MsgBox myName & "sbC"
    Else
        MsgBox myName & "sbC"
    End If
    Set myFso = Nothing	'
End Sub
